home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / progjrn / pj_6_1.arc / WHETLIN.ARC / TIME18D.A86 < prev    next >
Text File  |  1987-09-20  |  739b  |  34 lines
  1. ;    Author:        M. Steven Baker
  2. ;    Date:        November 22, 1986
  3. ;    Revision date:    September 20, 1987  revised for Microsoft
  4. ;
  5. ;
  6. ;    long time18(0)  -- returns timer counter in 18.2 counts/second    
  7. ;    long time18(long * loc)  -- also stores timer count in loc
  8. ;
  9. ; Version of Time() for Digital Research Fortran  to emulate UNIX time()
  10. ; returns timer interrupt count from BIOS data area
  11. ; count = 18.2 ticks per second
  12. ;    this version set up for DRI Fortran-77
  13. ;
  14.  
  15. timer_low equ 6ch
  16. timer_high equ 6eh
  17.  
  18. ;
  19.     cseg
  20.  
  21.     public    TIME18
  22. ;
  23. TIME18:    push    ds        ;save DS
  24.     mov    ax,40h        ;point to ROM BIOS area
  25.     mov    ds,ax
  26.     cli            ;shut off interrupts
  27.     mov    ax,ds:.timer_low    ;timer_low
  28.     mov    bx,ds:.timer_high    ;timer_high
  29.     sti
  30.     pop    ds
  31.     retf
  32.  
  33.     end
  34.